home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / INTRO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-03-15  |  439 b   |  26 lines
  1. 10  'INTRO - Page one of HAMCALC - 06 JUN 96
  2. 20  CLS:KEY OFF
  3. 30  KEY 10,"SYSTEM"+CHR$(13)
  4. 40  DIM L$(23)
  5. 50  COLOR 15,1,1
  6. 60  CLS
  7. 70  N=0
  8. 80  OPEN"I",1,"\data\docfiles\intro.txt"
  9. 90  IF EOF(1)THEN 130
  10. 100  N=N+1
  11. 110  INPUT#1,L$(N)
  12. 120  GOTO 90
  13. 130  CLOSE
  14. 140  FOR Z=1 TO 23
  15. 150  COLOR 15,1
  16. 160  IF Z=1 THEN COLOR 15,2
  17. 170  IF Z>1 AND Z<7 THEN COLOR 14,4
  18. 180  PRINT L$(Z)+"  "
  19. 190  NEXT Z
  20. 200  COLOR 0,7
  21. 210  LOCATE 25,23
  22. 220  PRINT " Press any key to continue . . . ";
  23. 230  Z$=INKEY$:IF Z$=""THEN 230
  24. 240  COLOR 7,0
  25. 250  CLS:RUN "\bas\menu\hcal"
  26.